home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / mail / Eucalyptus.lha / Eucalyptus / Rexx / mailnotify.euc next >
Encoding:
Text File  |  1998-04-28  |  746 b   |  24 lines
  1. /* Eucalyptus->IRC client notification script v1.1
  2. // by Eric Sauvageau merlin@thule.no
  3. //
  4. // v1.0 - Original Creation
  5. // v1.1 - Added support to diferentiate
  6. //        between MindLink and AmIRC
  7. //        (Deryk Robosson newlook@ameritech.net)
  8. */
  9. options results
  10. trace results
  11.  
  12. /* audio player to use */
  13. player = 'c:play16'
  14.  
  15. /* sample to play when email is received */
  16. sample = 'work:audio/samples/incoming.iff'
  17.  
  18. /* Play our sample */
  19. address command player' 'sample
  20.  
  21. /* Figure out which client we're running and notify the appropriate one */
  22. if show(ports,'MINDLINK') then address MINDLINK ShowMSG '!B![Email] You have new mail.'
  23. if show(ports,'AMIRC.1') then address AMIRC.1 'echo P=d2c(27)||d2c(2)||'«Askhost»'||d2c(2)||' You have new mail.'
  24.